#!/usr/bin/env perl

use warnings;
use strict;
use Carp::Source::Always;

sub f { die "arghh" };
sub g { f };
g();
